if flags.MakeText & ( HasPARENTS + HasCHILDREN ) = 1 then doGenText = 1
GetPerComp(ScionIRN)
'GETBAPTISMDATE' ScionIRN
BAPTISMDATE = RESULT
'GETRELIGION' ScionIRN
RELIGION = RESULT
'GETBAPTISMPLACE' ScionIRN
BAPTISMPLACE = RESULT
'GETBURIALPLACE' ScionIRN
BURIALPLACE = RESULT
'GETDIEDOF' ScionIRN
DIEDOF = RESULT
'GETEDUCATION' ScionIRN
EDUCATION = RESULT
'GETOCCUPATION' ScionIRN
OCCUPATION = RESULT
'GETPERSCOMMENT' ScionIRN
PERSCOMMENT = RESULT
'GETPERSREFS' ScionIRN
PERSREFS = RESULT
/*
ValidInfo = 0
if LASTNAME||BIRTHDATE||BIRTHPLACE||DEATHDATE||DEATHPLACE||BURIALPLACE||RELIGION||DIEDOF||EDUCATION||OCCUPATION||PERSCOMMENT||PERSREFS ~= "" THEN ValidInfo = 1
if ~ValidInfo then do
Say "Person " ScionIRN"'s lacking information; no new HTML file being created!"
return
end
if flags.MakeText & ( ValidInfo | LASTNAME ~= "" ) then DoGenText = 1
*/
if flags.MakeText then DoGenText = 1
PfilN = PersonPrefix || ScionIRN
dPfilN = Gdir'/'PfilN
gPfilN = Adir'/'PfilN
if flags.verbose then do
Say ''
Say ' HTML: 'dPfilN'.htm for: 'person.GETFULLNAME.ScionIRN' {'ScionIRN'}'
end
else Say person.GETFULLNAME.ScionIRN' {'ScionIRN'}'
Open('PERSONFILE',dPfilN'.htm','w')
WriteLn('PERSONFILE','<HTML>')
WriteLn('PERSONFILE','<TITLE>'person.GETFULLNAME.ScionIRN' Data Sheet</TITLE>')
WriteLn('PERSONFILE','<PRE><TT>')
if flags.MakeGuide then do
if flags.verbose then
Say 'Guide: 'gPfilN'.guide for: 'person.GETFULLNAME.ScionIRN' {'ScionIRN'}'